inherited Frmtd_unitgroupModal_Edit: TFrmtd_unitgroupModal_Edit
  Left = 498
  Top = 235
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #21333#20301#32452#32534#36753
  ClientWidth = 450
  OldCreateOrder = True
  ExplicitWidth = 456
  ExplicitHeight = 358
  PixelsPerInch = 96
  TextHeight = 12
  object cxGroupBox1: TcxGroupBox
    Left = 0
    Top = 0
    Align = alClient
    TabOrder = 0
    Height = 329
    Width = 450
    object cxGrid1: TcxGrid
      Left = 2
      Top = 94
      Width = 343
      Height = 154
      PopupMenu = popunitgroupDtl
      TabOrder = 0
      object cxGrid1DBTableView1: TcxGridDBTableView
        OnMouseDown = cxGrid1DBTableView1MouseDown
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = DS_unitgroupDtl
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.FocusCellOnTab = True
        OptionsBehavior.FocusFirstCellOnNewRecord = True
        OptionsBehavior.GoToNextCellOnEnter = True
        OptionsBehavior.FocusCellOnCycle = True
        OptionsData.Appending = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Footer = MainDM.bsTitle
        Styles.Header = MainDM.bsTitle
        Styles.Selection = MainDM.bsSelect
        object Name: TcxGridDBColumn
          Caption = #21517#31216
          DataBinding.FieldName = 'Name'
          Width = 152
        end
        object Rate: TcxGridDBColumn
          Caption = #20493#29575
          DataBinding.FieldName = 'Rate'
          Width = 177
        end
      end
      object cxGrid1Level1: TcxGridLevel
        GridView = cxGrid1DBTableView1
      end
    end
    object btnAppend: TcxButton
      Left = 352
      Top = 13
      Width = 93
      Height = 25
      Caption = #20445#23384#26032#22686
      TabOrder = 1
      OnClick = btnAppendClick
    end
    object btnPost: TcxButton
      Left = 353
      Top = 56
      Width = 93
      Height = 25
      Caption = #20445'    '#23384
      TabOrder = 2
      OnClick = btnPostClick
    end
    object btnCancel: TcxButton
      Left = 352
      Top = 101
      Width = 93
      Height = 25
      Caption = #21462#28040#36864#20986
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object cxLabel1: TcxLabel
      Left = 2
      Top = 299
      Align = alBottom
      Caption = #27880#24847#65306#21333#20301#21517#31216#21644#27604#29575#26159#20174#22823#21040#23567#36755#20837#30340#12290#20363#26020'(10'#20004')'#65292#20004#65292#20811'(0.02)'#65292#20197#20004#20026#22522#26412#21333#20301
      Properties.WordWrap = True
      Transparent = True
      Width = 446
    end
    object cxLabel2: TcxLabel
      Left = 8
      Top = 18
      Caption = #21517'     '#31216#65306
      Transparent = True
    end
    object EdtName: TcxDBTextEdit
      Left = 76
      Top = 12
      DataBinding.DataField = 'Name'
      DataBinding.DataSource = MainDataSource
      TabOrder = 6
      Width = 269
    end
    object cxLabel3: TcxLabel
      Left = 8
      Top = 44
      Caption = #32534'     '#30721#65306
      Transparent = True
    end
    object EdtCode: TcxDBTextEdit
      Left = 76
      Top = 38
      DataBinding.DataField = 'Code'
      DataBinding.DataSource = MainDataSource
      TabOrder = 8
      Width = 269
    end
    object cxLabel4: TcxLabel
      Left = 8
      Top = 70
      Caption = #22791'     '#27880#65306
      Transparent = True
    end
    object EdtRemark: TcxDBTextEdit
      Left = 76
      Top = 64
      DataBinding.DataField = 'Remark'
      DataBinding.DataSource = MainDataSource
      TabOrder = 10
      Width = 269
    end
  end
  object MainDataSource: TDataSource
    DataSet = Frmtd_unitgroupModal_List.Qry_unitgroupMst
    Left = 160
    Top = 24
  end
  object Qry_unitgroupDtl: TUniQuery
    SQLInsert.Strings = (
      'Insert into TD_UNITGROUPDTL(UnitId,'
      'GroupId,'
      'Name,'
      'Rate'
      ')'
      'Values'
      '(:UnitId,'
      ':GroupId,'
      ':Name,'
      ':Rate)')
    SQLDelete.Strings = (
      
        'Delete from TD_UNITGROUPDTL where UnitId=:OLD_UnitId and GroupId' +
        '=:OLD_GroupId')
    SQLUpdate.Strings = (
      'Update TD_UNITGROUPDTL set '
      'UnitId=:UnitId,'
      'GroupId=:GroupId,'
      'Name=:Name,'
      'Rate=:Rate'
      ' where UnitId=:OLD_UnitId and GroupId=:OLD_GroupId')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_unitgroupDtl')
    CachedUpdates = True
    BeforeInsert = Qry_unitgroupDtlBeforeInsert
    BeforePost = Qry_unitgroupDtlBeforePost
    Left = 24
    Top = 112
    object Qry_unitgroupDtlUnitId: TIntegerField
      FieldName = 'UnitId'
    end
    object Qry_unitgroupDtlGroupId: TIntegerField
      FieldName = 'GroupId'
    end
    object Qry_unitgroupDtlName: TStringField
      FieldName = 'Name'
    end
    object Qry_unitgroupDtlRate: TFloatField
      FieldName = 'Rate'
    end
  end
  object DS_unitgroupDtl: TDataSource
    DataSet = Qry_unitgroupDtl
    Left = 112
    Top = 112
  end
  object popunitgroupDtl: TPopupMenu
    Left = 200
    Top = 112
    object mitemDelete: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = mitemDeleteClick
    end
  end
end
